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1.0 PURPOSE 


The purpose of the Longitudinal and Transverse programs is to 
plot the contour of the data which have been transferred from 
the Marshall Space Flight Center (MSFC) solar magnetograph. The 
data contain three different files: 

1A1B For circular polarization 

1A represents left circular; IB represents right circular. 

2A2B | 

/ For linear polarization 

3A3B > 

1.1 The Longitudinal program is to read the data 1A1B and plot the 
contours (1A - 1B/1A + IB) for filtered longitudinal plot and 
Intensity plot by choosing the positive and negative contour 
levels, Intensity levels, and also X,Y plotting ranges which need 
to be used. 


1.2 The Transverse program is to read the data files 2A2B and 3A3B and 
generate data 


/(2A - 2B/2A + 2B) 2 + (3A - 3B/3A + 3B) 2 
to plot the transverse contour plot, azimuth plot 

- : aaa : a] • 

and intensity plot by choosing the positive and negative contour 
levels, intensity levels, and also X,Y plotting ranges which need 
to be used. 

2.0 COMPUTER AND OPERATION SYSTEM 

The program is operational under Sigma 5, using the Tektronics 
terminal. 


3.0 PROCEDURE 


3.1 Press Break key and press Return key. System will ask for 
ID number. 

3.2 Key in WANG, ES52000 (ID will not show on the screen). 
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3.3 Key In PLATEN 132. (This will set the value of the terminal 
platen width.) 

3.4 Key in XEQ KZTIME to execute KZTIME program which will list 
the housekeeping information from the header record of each 
file in the data tape. (An example is included in Appendix A.) 

Key in PCL. 

Key in REW FT#TEST (to rewind the tape). 

Press Control key and Z key simultaneously. 

3.5 Key in XEQ KZLONGT (to execute Longitudinal program). 

An example of how to answer all the questions is included in 
Appendix A. The choice of record/data file equals the beginn- 
ing record number of 1A1B file from KZTIME program output. 

3.6 Key in XEQ KZTRANSV (to execute Transverse program). . 

An example is given in Appendix A. Record/data file equals 
the beginning record number of 2A2B file from KZTIME program 
output. 

3.7 After running each program, key in PCL and then key in 
REW FT#TE5T to rewind the tape. 

Note: The following inputs should be used when a typing 
error occurs: 

Hit "ROB" - Cancel one character typed on the line. 

Hit "ESCAPE" and then hit "X" - Cancel all characters 
typed on the line. 

Hit "ESCAPE" and another "ESCAPE" - Terminate the job. 

Every time a job is terminated, the tape must be rewound before 
running another program. 


LONGITUDINAL PROGRAM FLOW DIAGRAM 
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5.0 TRANSVERSE PROGRAM FLOW DIAGRAM 


START 


Input information for 
contour levels, 
data forms, filter, 
intensity, starting record number 
azimuth, plotting range 
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APPENDIX A 
SAMPLE CASES 


Sample Case for KZTIME 


m XiKZTIW 

MM - SuMR 

as : \m ;\\i s™ 

_ mm * man As. 

f 80 VOO IMNT TO MIP TO ON END OF FILE NMK (fVt.O-NO 
^INFUT THE NUNMR OF EOF TO MINT 


|0F_i_ gCCOW D COUNT | 

^OTONTJNO HfCCM NUN3ER? 

1 1 TINE! 1871 13IMMI ZFIM70 

OM.iKS FOl. II EXT. I HlS 
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I MSI 33 TXNEI187U3I31IM 2F<M70 
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Sample Case for Longitudinal Program 
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OF XHfCNSXW VALUES (MX. or 7 )? 







Sample Case for Transverse Program 
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APPENDIX B 
PROGRAM LISTING 


PROGRAM LISTING INDEX 


NAME PAGE 

KZTIME 24 

LONGT 27 

DRVI1 35 

TRANS V 40 

ACCEPT 49 

FILTER 52 

SMPLOT 55 

CPLT1 58 

CPLT2 60 

SDNPUT 63 

CSCAN ; 65 

CONTUR 68 

PTIME 80 
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209. 220 CONTINUE 




474 CONTINUE 
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265. IYY=ISL(*2A(4),-16)*I»ND(ISL012A<4),16),KMU) 
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IV, VERSION F02 
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TOTAL PROGRAM! 151 00097 (PLUS LABELED COMMON) 
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Z(KBACK)=Z(KBACK-2) 



EXT. FORTRAN IV, VERSION F02 
















HICHEST ERROR SEVERITY: 0 C»0 ERRORS) 







APPENDIX C 


COMMAND FILES FOR 
KZTIME, KZLONGT, AND KZTRANSV 
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APPENDIX D 

DESCRIPTIONS FOR PROGRAM SUBROUTINES 





*'-M 


W-x'ifAK 


KZTIME: 


KZLONGT : 


KZTRANSV : 


KZPTIME: 
KZFILTER: 
KZDRIV 1: 


KZSMPLOT : 


KZCONTUR : 
KZCPLT 1: 
KZCPLT 2: 

KZSDNPUT: 
KZPPLOT : 


KZCSCAN : 


To read the 9TRK data tape and search for the beginning record of 
each file and also print out the housekeeping information for each 
file. 

The main program for longitudinal plot. 

To read data file 1A1B from 9TRK data tape, compute contour data 
(1A - 1 B )/ (1 A + IB) and save it for future use. 

To read information from terminal input and call subroutines to do 
contour plots. 

The main program for transverse. 

To read input data 2A2B, 3A3B, compute contour data, azimuth data 
and plot. 

To generate housekeeping information. 

To generate filter data. 

To choose saved data file for different cases, plot longitudinal contour 
and intensity plot and also display the label with the plots. 

To set up X, Y range, clear screen and call subroutines to plot save 
status words. 

Generate contour plot points. 

Draw plotting frame. 

To decide starting or ending contour and call subroutine KZSDNPUT 
to plot. 

To plot contour. 

Options 1. Delete all characters not in box. 

2. Delete all characters. 

3. Delete only low level characters. 

Set up KGO 

KGO = 1 New contour value 
KGO = 2 New ARC 
KGO = 3 New SUB-ARC After gap 

BiiUX j () i-iOniALLX 
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KGO = 4 New point 
KGO = 5 Finished 
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